home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / IO / Compress / Adapter / Identity.pm < prev   
Encoding:
Perl POD Document  |  2008-09-03  |  1.4 KB  |  102 lines
  1. package IO::Compress::Adapter::Identity ;
  2.  
  3. use strict;
  4. use warnings;
  5. use bytes;
  6.  
  7. use IO::Compress::Base::Common  2.015 qw(:Status);
  8. our ($VERSION);
  9.  
  10. $VERSION = '2.015';
  11.  
  12. sub mkCompObject
  13. {
  14.     my $level    = shift ;
  15.     my $strategy = shift ;
  16.  
  17.     return bless {
  18.                   'CompSize'   => 0,
  19.                   'UnCompSize' => 0,
  20.                   'Error'      => '',
  21.                   'ErrorNo'    => 0,
  22.                  } ;     
  23. }
  24.  
  25. sub compr
  26. {
  27.     my $self = shift ;
  28.  
  29.     if (defined ${ $_[0] } && length ${ $_[0] }) {
  30.         $self->{CompSize} += length ${ $_[0] } ;
  31.         $self->{UnCompSize} = $self->{CompSize} ;
  32.  
  33.         if ( ref $_[1] ) 
  34.           { ${ $_[1] } .= ${ $_[0] } }
  35.         else
  36.           { $_[1] .= ${ $_[0] } }
  37.     }
  38.  
  39.     return STATUS_OK ;
  40. }
  41.  
  42. sub flush
  43. {
  44.     my $self = shift ;
  45.  
  46.     return STATUS_OK;    
  47. }
  48.  
  49. sub close
  50. {
  51.     my $self = shift ;
  52.  
  53.     return STATUS_OK;    
  54. }
  55.  
  56. sub reset
  57. {
  58.     my $self = shift ;
  59.  
  60.     $self->{CompSize}   = 0;
  61.     $self->{UnCompSize} = 0;
  62.  
  63.     return STATUS_OK;    
  64. }
  65.  
  66. sub deflateParams 
  67. {
  68.     my $self = shift ;
  69.  
  70.     return STATUS_OK;   
  71. }
  72.  
  73. #sub total_out
  74. #{
  75. #    my $self = shift ;
  76. #    return $self->{UnCompSize} ;
  77. #}
  78. #
  79. #sub total_in
  80. #{
  81. #    my $self = shift ;
  82. #    return $self->{UnCompSize} ;
  83. #}
  84.  
  85. sub compressedBytes
  86. {
  87.     my $self = shift ;
  88.     return $self->{UnCompSize} ;
  89. }
  90.  
  91. sub uncompressedBytes
  92. {
  93.     my $self = shift ;
  94.     return $self->{UnCompSize} ;
  95. }
  96.  
  97. 1;
  98.  
  99.  
  100. __END__
  101.  
  102.